home *** CD-ROM | disk | FTP | other *** search
/ Aminet 40 / Aminet 40 (2000)(Schatztruhe)[!][Dec 2000].iso / Aminet / comm / tcp / Amster-main.lha / Amster_Install / Rexx / DelitrackerII.rexx < prev    next >
OS/2 REXX Batch file  |  2000-10-18  |  936b  |  40 lines
  1. /*
  2. ** $VER: DeliTrackerII 1.1 (18.10.2000)
  3. ** © 2000 by Jacob Laursen <laursen@myself.com>
  4. **
  5. ** Set up your player path below and some of these events in Amster:
  6. **
  7. ** Download finished
  8. ** Double-clicking library file
  9. ** Double-clicking download file
  10. ** MP3 player
  11. **
  12. ** To play the file immediately:
  13. **   Command:  RexxC:RX Apps:Comm/Amster/Rexx/DeliTrackerII.rexx PLAY %f
  14. **
  15. ** To add the file to the playlist:
  16. **   Command:  RexxC:RX Apps:Comm/Amster/Rexx/DeliTrackerII.rexx ADD %f
  17. */
  18.  
  19. PlayerPath = 'Apps:Sound/Players/DeliTracker_II/DeliTracker2'
  20.  
  21. /* No user-serviceable parts below */
  22.  
  23. parse arg mode' 'filename
  24. options results
  25.  
  26. call pragma('STACK', 16384)
  27. if ~show('P','DELITRACKER') then address command 'Run <>NIL: 'PlayerPath
  28.  
  29. do while ~show('P','DELITRACKER')
  30.    call delay(50)
  31. end
  32.  
  33. address 'DELITRACKER'
  34.  
  35. if upper(mode) = 'PLAY' then PLAYMOD filename
  36. else if upper(mode) = 'ADD' then do
  37.   APPEND YES
  38.   MAKELIST filename
  39. end
  40.